****APPENDIX FIGURE H1****

cd "$main_dir/output/figures/appendix_h"

graph set window fontface "Palatino"

//--------------------------------------------------------
//Read in relevant data
//--------------------------------------------------------

clear
use "$data_dir/raw/mpd2023_clean.dta"

keep if year>=2000 & year!=.

merge m:1 ccode using "$data_dir/raw/democ_autoc_switch_media.dta", keepusing(democracy autocracy)
drop if _merge==2
drop _merge

//--------------------------------------------------------
//Create Figure H1
//--------------------------------------------------------

kdensity growth_rate if democracy==1, gaussian addplot(kdensity growth_rate if autocracy==1, gaussian) legend(order(1 "Democracies" 2 "Autocracies") size(small)) ///
	graphregion(color(white)) ytitle("Density", margin(small)) xtitle("Growth Rate", margin(small)) note("") title("") xlabel(-0.5(0.25)0.5)
graph export "figure_h1.png", replace
